W tym przyk│adzie warto£µ pola Prze│o┐eni jest zmieniana na 5 w tych wszystkich rekordach pracownik≤w, w kt≤rych wynosi│a 2.
Sub UpdateX()
Dim dbs As Database
Dim qdf As QueryDef
' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a
' na rzeczywist╣ bazΩ danych Northwind.
Set dbs = OpenDatabase("Northwind.mdb")
' Zmie± warto£µ pola Prze│o┐eni na 5 we wszystkich
' rekordach pracownik≤w, w kt≤rych wynosi│a ona 2
dbs.Execute "UPDATE Pracownicy " _
& "SET Prze│o┐eni = 5 " _
& "WHERE Prze│o┐eni = 2;"
dbs.Close
End Sub